home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / 00001Series_41_NoiseReduction.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  3.2 KB  |  53 lines
  1. on mouseUp
  2.   if the hilite of cast "noisereduction" = 1 then
  3.     set the visible of sprite 54 to 0
  4.     set the visible of sprite 55 to 0
  5.     set the visible of sprite 50 to 0
  6.     set the visible of sprite 51 to 0
  7.     set the visible of sprite 52 to 0
  8.     set the visible of sprite 53 to 0
  9.     set the visible of sprite 60 to 0
  10.     set the visible of sprite 61 to 0
  11.     set the visible of sprite 62 to 0
  12.     set the visible of sprite 63 to 0
  13.     set the visible of sprite 64 to 0
  14.     set the visible of sprite 65 to 0
  15.     set the visible of sprite 72 to 0
  16.     set the visible of sprite 73 to 0
  17.   end if
  18.   if the hilite of cast "noisereduction" = 0 then
  19.     if (the hilite of cast "asphalt" = 0) and (the hilite of cast "terrazzo" = 0) and (the hilite of cast "wood" = 0) and (the hilite of cast "tile" = 0) and (the hilite of cast "extremetemp" = 0) and (the hilite of cast "linoleum" = 0) and (the hilite of cast "floorprotection" = 0) and (the hilite of cast "cushionload" = 0) then
  20.       set the visible of sprite 44 to 1
  21.       set the visible of sprite 45 to 1
  22.     end if
  23.   end if
  24.   if the hilite of cast "noisereduction" = 0 then
  25.     if (the hilite of cast "asphalt" = 0) and (the hilite of cast "terrazzo" = 0) and (the hilite of cast "wood" = 0) and (the hilite of cast "tile" = 0) and (the hilite of cast "metalchips" = 0) and (the hilite of cast "extremetemp" = 0) and (the hilite of cast "linoleum" = 0) and (the hilite of cast "cushionload" = 0) then
  26.       set the visible of sprite 50 to 1
  27.       set the visible of sprite 51 to 1
  28.     end if
  29.   end if
  30.   if the hilite of cast "noisereduction" = 0 then
  31.     if (the hilite of cast "asphalt" = 0) and (the hilite of cast "terrazzo" = 0) and (the hilite of cast "ribbedsteel" = 0) and (the hilite of cast "tile" = 0) and (the hilite of cast "metalchips" = 0) and (the hilite of cast "linoleum" = 0) and (the hilite of cast "floorprotection" = 0) and (the hilite of cast "cushionload" = 0) then
  32.       set the visible of sprite 52 to 1
  33.       set the visible of sprite 53 to 1
  34.     end if
  35.   end if
  36.   if the hilite of cast "noisereduction" = 0 then
  37.     if (the hilite of cast "carpet" = 0) and (the hilite of cast "brick" = 0) and (the hilite of cast "concrete" = 0) and (the hilite of cast "asphalt" = 0) and (the hilite of cast "terrazzo" = 0) and (the hilite of cast "wood" = 0) and (the hilite of cast "ribbedsteel" = 0) and (the hilite of cast "tile" = 0) and (the hilite of cast "water" = 0) and (the hilite of cast "steam" = 0) and (the hilite of cast "linoleum" = 0) and (the hilite of cast "floorprotection" = 0) and (the hilite of cast "cushionload" = 0) then
  38.       set the visible of sprite 60 to 1
  39.       set the visible of sprite 61 to 1
  40.       set the visible of sprite 62 to 1
  41.       set the visible of sprite 63 to 1
  42.       set the visible of sprite 64 to 1
  43.       set the visible of sprite 65 to 1
  44.     end if
  45.   end if
  46.   if the hilite of cast "noisereduction" = 0 then
  47.     if (the hilite of cast "asphalt" = 0) and (the hilite of cast "terrazzo" = 0) and (the hilite of cast "wood" = 0) and (the hilite of cast "tile" = 0) and (the hilite of cast "linoleum" = 0) and (the hilite of cast "floorprotection" = 0) and (the hilite of cast "cushionload" = 0) then
  48.       set the visible of sprite 72 to 1
  49.       set the visible of sprite 73 to 1
  50.     end if
  51.   end if
  52. end
  53.